The Electronic Whole Earth Catalog/ElectronicWholeEarthCatalog.img/WHOLE EARTH/stack.txt

Text File | 1989-02-01 | 6KB | 213 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 4091
-- card count: 2
-- first card id: 3797
-- list block id: 4479
-- print block id: 3547
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 53792 bytes
-- stack block size: 25088 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- 12/712/88 we only need to hide the menubar on entry, and to have
-- sound scripts for the surprise sound buttons
on openStack
  global curSnd, sndRefNum

  hide menuBar
  put 0 into sndRefNum
  put empty into curSnd
end openStack

on doMenu menuChoice
  if menuChoice = "Help" then
    goHelp
  else
    pass doMenu
  end if
end doMenu

on goHelp
  put short name of this bg into bgName
  if bgname = "Section Map" then
    put "Domain" into bgName
  else if bgName = "Cluster Map" then
    put "Section" into bgName
  else if bgName = "Item Map" then
    put "Cluster" into bgName
  end if

  put showHelp(bgName) into choice

  if choice = 1 then
    go to card id 63283 of stack "Introduction"
  else if choice = 2 then
    go to stack "Help"
  end if
end goHelp

------------------------------ Sound Scripts ------------------------------
on initSound
  global curSnd, sndRefNum

  put 0 into sndRefNum
  put empty into curSnd
end initSound

function openSound shortname
put the long name of this stack into foo
delete first word of foo
delete first char of foo
delete last char of foo
repeat with i = length(foo) down to 1
  if char i of foo is ":" then exit repeat
end repeat
put (char 1 to i of foo) & shortname into bar
return OpenRes(bar)
end openSound

on idle
  global curSnd, curChunk

  if curSnd is not empty then
    put curSnd & "." & curChunk into chunkName

    if the sound is chunkName then
      add 1 to curChunk
      play curSnd & "." & curChunk
    else if the sound is "done" then
      get curSnd
      put empty into curSnd
      set hilite of card button ("Sound " & it) to false
    end if
  end if

  pass idle
end idle

on playLong sndName
  global curSnd, curChunk, sndRefNum

  if curSnd is not empty then
    stopSnd
  else
    put char 1 to 2 of sndName into prefix
    -- special case for down home records
    if prefix is "dh" OR prefix is "DH" then
      put char 3 to 4 of sndName into num
      if num > 35 then put "d2" into prefix
      else put "d1" into prefix
    end if
    put openSound( "SoundFiles:" & prefix & ".chunx" ) into sndRefNum

    put sndName into curSnd
    set hilite of card button ("Sound " & curSnd) to true
    put 1 into curChunk

    play curSnd & "." & curChunk

  end if
end playLong

on stopSnd
  global curSnd, curChunk

  play stop

  if curSnd is not empty
  then
  set hilite of card button ("Sound " & curSnd) to false
end if

put empty into curSnd
put 0 into curChunk
end stopSnd

on soundCloseCard
  global sndRefNum

  stopSnd
  if sndRefNum is not 0 then
    closeRes sndRefNum
  end if
  put 0 into sndRefNum
end soundCloseCard

on newSoundBtn sndCode
  -- authoring script to create a new sound button to play 'sndCode' resource
  doMenu "New Button"
  put "Sound" && sndCode into sndBtnName
  set the name of last button to sndBtnName
  set the style of btn sndBtnName to transparent
  set the icon of btn sndBtnName to 13667   -- musical note icon id
  set the rect of btn sndBtnName to "291,301,329,337"
  set the autoHilite of btn sndBtnName to true
  set the showName of btn sndBtnName to false

  put "on mouseUp" & return into sndScript
  put "  playLong" && sndCode & return after sndScript
  put "end mouseUp" & return after sndScript

  set the script of btn sndBtnName to sndScript

  choose Browse tool
end newSoundBtn